home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d1 / ansi_432.arc / SETANSI.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-03-08  |  3.5 KB  |  85 lines
  1.          NAME      SETANSI
  2.          PAGE      58,132
  3.          TITLE     SET FUNCTION KEYS TO DOS COMMAND STRINGS
  4. CSEG     SEGMENT PARA PUBLIC 'CODE'
  5.          ASSUME    CS:CSEG,DS:CSEG
  6.          ORG       100H
  7. ENTPT:   JMP       START
  8. F1       DB        27,'[0;59;"CLS";13p'
  9. F1SS     EQU       $-F1
  10. F2       DB        27,'[0;60;"CD\";13p'
  11. F2SS     EQU       $-F2
  12. F3       DB        27,'[0;61;"CD\COMM\PCTB";13p'
  13. F3SS     EQU       $-F3
  14. F4       DB        27,'[0;62;"CD\WP\VW";13p'
  15. F4SS     EQU       $-F4
  16. F5       DB        27,'[0;63;"CD\ASMCOMP\ASM";13p'
  17. F5SS     EQU       $-F5
  18. F6       DB        27,'[0;64;"CD\LOTUS";13p'
  19. F6SS     EQU       $-F6
  20. F7       DB        27,'[0;65;"SDIR A:";13p'
  21. F7SS     EQU       $-F7
  22. F8       DB        27,'[0;66;"SDIR B:";13p'
  23. F8SS     EQU       $-F8
  24. F9       DB        27,'[0;67;"D:SDIR C:";13p'
  25. F9SS     EQU       $-F9
  26. FA       DB        27,'[0;68;"D:SDIR D:/E";13p'
  27. FASS     EQU       $-FA
  28. HANDLE   EQU       1         ;PREDEFINED FILE - STD OUTPUT
  29. ;
  30. START    PROC      NEAR
  31.          MOV       BX,HANDLE
  32.          MOV       CX,F1SS
  33.          MOV       DX,OFFSET F1        ;PASS OFFSET OF STRING TO SEND
  34.          MOV       AH,40H              ;FUNCTION - WRITE TO DEVICE
  35.          INT       21H                 ;CALL DOS
  36.          MOV       BX,HANDLE
  37.          MOV       CX,F2SS
  38.          MOV       DX,OFFSET F2        ;PASS OFFSET OF STRING TO SEND
  39.          MOV       AH,40H              ;FUNCTION - WRITE TO DEVICE
  40.          INT       21H                 ;CALL DOS
  41.          MOV       BX,HANDLE
  42.          MOV       CX,F3SS
  43.          MOV       DX,OFFSET F3        ;PASS OFFSET OF STRING TO SEND
  44.          MOV       AH,40H              ;FUNCTION - WRITE TO DEVICE
  45.          INT       21H                 ;CALL DOS
  46.          MOV       BX,HANDLE
  47.          MOV       CX,F4SS
  48.          MOV       DX,OFFSET F4        ;PASS OFFSET OF STRING TO SEND
  49.          MOV       AH,40H              ;FUNCTION - WRITE TO DEVICE
  50.          INT       21H                 ;CALL DOS
  51.          MOV       BX,HANDLE
  52.          MOV       CX,F5SS
  53.          MOV       DX,OFFSET F5        ;PASS OFFSET OF STRING TO SEND
  54.          MOV       AH,40H              ;FUNCTION - WRITE TO DEVICE
  55.          INT       21H                 ;CALL DOS
  56.          MOV       BX,HANDLE
  57.          MOV       CX,F6SS
  58.          MOV       DX,OFFSET F6        ;PASS OFFSET OF STRING TO SEND
  59.          MOV       AH,40H              ;FUNCTION - WRITE TO DEVICE
  60.          INT       21H                 ;CALL DOS
  61.          MOV       BX,HANDLE
  62.          MOV       CX,F7SS
  63.          MOV       DX,OFFSET F7        ;PASS OFFSET OF STRING TO SEND
  64.          MOV       AH,40H              ;FUNCTION - WRITE TO DEVICE
  65.          INT       21H                 ;CALL DOS
  66.          MOV       BX,HANDLE
  67.          MOV       CX,F8SS
  68.          MOV       DX,OFFSET F8        ;PASS OFFSET OF STRING TO SEND
  69.          MOV       AH,40H              ;FUNCTION - WRITE TO DEVICE
  70.          INT       21H                 ;CALL DOS
  71.          MOV       BX,HANDLE
  72.          MOV       CX,F9SS
  73.          MOV       DX,OFFSET F9        ;PASS OFFSET OF STRING TO SEND
  74.          MOV       AH,40H              ;FUNCTION - WRITE TO DEVICE
  75.          INT       21H                 ;CALL DOS
  76.          MOV       BX,HANDLE
  77.          MOV       CX,FASS
  78.          MOV       DX,OFFSET FA        ;PASS OFFSET OF STRING TO SEND
  79.          MOV       AH,40H              ;FUNCTION - WRITE TO DEVICE
  80.          INT       21H                 ;CALL DOS
  81.          RET                           ;RETURN TO DOS
  82. START    ENDP
  83. CSEG     ENDS
  84.          END       ENTPT
  85.